home *** CD-ROM | disk | FTP | other *** search
/ Classic Games for OS/2 Warp / Classic Games for OS2 Warp (1995)(IBM).iso / fpclean.cmd next >
OS/2 REXX Batch file  |  1995-07-11  |  1KB  |  44 lines
  1. /* Cleanup the directories (if any) left on the drives: */
  2.  
  3. rc = RxFuncAdd( "SysDriveMap", "RexxUtil", "SysDriveMap" )
  4. rc = RxFuncAdd( "SysFileTree", "RexxUtil", "SysFileTree" )
  5. rc = RxFuncAdd( "SysDriveInfo", "RexxUtil", "SysDriveInfo" )
  6. rc = RxFuncAdd( "SysFileDelete", "RexxUtil", "SysDeleteFile" )
  7.  
  8. /* Search Drives for home Dir: */
  9. Map = SysDriveMap( , "LOCAL" )
  10. Dir = "\FUNPAK"
  11.  
  12. Done.0 = 0                       /*Keep track of which objects were created*/
  13. Uninst = 0
  14.  
  15. Do I=1 to Words(Map)
  16.    Drive = Strip( Word(Map, I) )
  17.  
  18.    /* Check if Drive is Accessable */
  19.    If ( (SysDriveInfo(Drive) \= "" ) & ,
  20.         (Strip(Word(SysDriveInfo, 2)) \= "0") ) then Do
  21.  
  22.       Say "Checking Drive:  " || Drive
  23.  
  24.       /* get directories under home dir: */
  25.       rc = SysFileTree( Drive || Dir || "\*.*", "File.", "FO" )
  26.       rc = SysFileTree( Drive || Dir || "\*.*", "Dir.", "DO" )
  27.  
  28.       If ( (File.0 > 0) & (Dir.0 == 0) ) Then Do
  29.  
  30.          /* FunPak directory found, but no subdirs were found */
  31.          /* underneath it - no apps are installed.  Remove the \FUNPAK */
  32.          /* directory and files therein. */
  33.          Say "   Cleaning Drive:  " || Drive
  34.          "@" || Drive
  35.          "@cd \"
  36.          "@echo y | del " || Drive || Dir
  37.          "@rd " || Drive || Dir
  38.  
  39.          End
  40.       End
  41.    End
  42.  
  43. ""Exit
  44.